Using japanese at memo

saxy

Dear together, [img]style_emoticons/<#EMO_DIR#>/laugh.gif" style="vertical-align:middle" emoid="" border="0" alt="laugh.gif" /> I have to use fast report with japanese, chinese, ... character at a memo. Delphi 7 and FR4.5 are used to realize the project. I'm able to handle japanese character from the configuration file (.ini) the show and edit them inside a combobox and editfield. The character aren't show inside the FR memo. At the Delphi - project I use an user function[/img]CallEditDialog to ask for then new value. (combobox or editfield).
There I've to set the charset to SHIFTJIS_CHARSET

At the code (pascalscript) I asked at the start, after changing the value and at the end for the answer and the memo.text content respectively by using showmessage(...).
Everytime I've got back the japanese character. [img]style_emoticons/<#EMO_DIR#>/smile.gif" style="vertical-align:middle" emoid=":)" border="0" alt="smile.gif" /> At the report I don't get any japanese character. I've got something like '-e-?'... By using the '[/img]showmessage' it will be transformed back to the japanese character.

procedure MemoOnDblClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var            
  Answer      : string;
  s           : string;                                                              
begin

  // Look for the old contect of the memo
  ShowMessage( 'Sender-Start: ' + TfrxMemoView(Sender).Text);    
  s :=TfrxMemoView(Sender).Text;                                                                                                                                                                         
  setlength(s,length(s)-2); 

  // Open Edit-Dialog with Edit- or Cobo-Box
  Answer := CallEditDialog(TfrxMemoView(Sender).Name,TfrxMemoView(Sender).Hint,TfrxMemoView(Sender).Description,<ConfigFilePfad>+'\'+ConfigFileName,s,GetActiveLanguage);

  if(Answer <>'<<NULL>>') then 
  begin
       // Look  for the result from Dialog
       ShowMessage( 'Answer: ' +Answer);      
       TfrxMemoView(Sender).Text :=Answer;

       // Look for the value inside the memo.text
       ShowMessage( 'Sender-ENDe: ' + TfrxMemoView(Sender).Text);                                             
       Modified := true;           
  end;            
      
end;

I copied japanese character by using the clipboard to the memo directly. The japanese character are shown, but not readable by ShowMessage( 'Sender-Start: ' + TfrxMemoView(Sender).Text);. The answer is only '??'.

I made some different test by changing the memo.charset. But it isn't running correctly, every time.
The character are coded as UCS-2 liddle endian at an ini-File

Maybe, you have an solution or an explanation of my probleme... [img]style_emoticons/<#EMO_DIR#>/tongue.gif" style="vertical-align:middle" emoid=":P" border="0" alt="tongue.gif" /> Thank you in anticipation[/img]